Sub test()
    If ActiveSheet.Name Like "*zyg*" Then
        MsgBox "ǰƺСzygַ", 64, "ϵͳ"
    Else
        MsgBox "ǰƲСzygַ", 16, "ϵͳ"        
    End If    
End Sub

Sub Test()
    Dim i
    For i = 1 To Sheets.Count
        If Sheets(i).Name Like "*Сѧ*" Then
           MsgBox "кַСѧ" & Sheets(i).Name, 64, "ϵͳ"
           
           '  sheets(i).Visible = True
        Else
            ' sheets(i).Visible = False
        End If
    Next
    
End Sub

Sub Test()
    Dim sht  As Worksheet
    
    For Each sht In Sheets
    
        If sht.Name Like "*Сѧ*" Then
           MsgBox "кַСѧ" & sht.Name, 64, "ϵͳ"
           
           '  sheets(i).Visible = True
        Else
            ' sheets(i).Visible = False
        End If
    Next
    
End Sub

